1 M$(1)="TESTPUNKT 1"
2 M$(2)="TESTPUNKT 2"
3 AN=2:REM ANZAHL
4 MF=1:REM FARBE WEISS
5 GOSUB10
6 PRINT"[147] MENUEPUNKT :[144]";A""
7 END
10 PRINTCHR$(147):A=1:Q=-1:POKE646,MF:FORG=1TOAN:PRINT" "M$(G):NEXTG
20 Q=Q+1:POKE646,Q:IFQ=16THENQ=0
30 POKE211,1:POKE214,A:SYS58640:PRINTM$(A)
40 GETA$:IFA$=""THEN20
50 POKE211,1:POKE214,A:SYS58640:POKE646,MF:PRINTM$(A)
60 IFA$="[145]"THENIFA>1THENA=A-1
70 IFA$=""THENIFA<ANTHENA=A+1
80 IFA$=CHR$(13)THENRETURN
90 GOTO20
100 REM ***********************
101 REM *                     *
102 REM * DIESE MENUE-ROUTINE *
103 REM * KANNST DU IN DEINE  *
104 REM * EIGENEN PROGRAMME   *
105 REM * EINBINDEN !         *
106 REM *                     *
107 REM * ZEITGEIST/PCC/DSI   *
108 REM *                     *
109 REM ***********************